home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 75 / PC Format 75 - Nov 1997.iso / Tech / WM30DEMO / ENGRNG / MECHSMS / PISTON.WBS < prev    next >
Text File  |  1995-06-30  |  2KB  |  62 lines
  1. ' ******************************************************************************
  2. ' Piston Engine Script - RUNS PISTON ENGINE SIMULATION WITH DIFFERENT CONNECTING
  3. '                            ROD LENGTHS
  4. '
  5. '    This simple script works with the PISTON ENGINE demo file.  It varies the
  6. '    engine connecting rod length several times and runs several frames, 
  7. '    both based on constants located at the beginning of the script. It
  8. '    then saves the data from several meters in a file the user enters in
  9. '    a dialog box.
  10.     
  11. ' Version 1.0, Created by Knowledge Revolution
  12. ' (C) Copyright Knowledge Revolution 1995   All Rights Reserved
  13. '
  14. ' ******************************************************************************
  15.  
  16. Sub Main()
  17.  
  18.     Const NumberOfRuns as integer = 5
  19.     Const NumberOfFrames as integer = 75
  20.     Const StepSize as double = 0.5
  21.  
  22.     Dim Doc as WMDocument
  23.     Dim B as WMBody
  24.     Dim index as integer
  25.     Dim meterfile as string
  26.     
  27.     Set Doc = WM.ActiveDocument
  28.  
  29.     Set B = Doc.Body("Connecting Rod")
  30.     B.Width.Value = 12
  31.  
  32.     Doc.StartHere
  33.     Doc.RetainMeterValues = True
  34.     Doc.EraseMeterValues
  35.  
  36.  
  37.     For index = 1 to NumberOfRuns 
  38.         Doc.run NumberOfFrames
  39.         Doc.reset
  40.         B.Width.Value = B.Width.Value - StepSize
  41.     Next index
  42.  
  43.     Doc.reset
  44.     B.Width.Value = 12
  45.  
  46.     Doc.select Doc.Output("Ignition Power"), True
  47.     Doc.select Doc.Output("Engine Speed"), True
  48.     Doc.select Doc.Output("Wrist Pin Force"), True
  49.     Doc.select Doc.Output("Piston Stroke"), True
  50.  
  51.     meterfile = SaveFilename$("Save Meter Export File")
  52.     
  53.     If meterfile <> "" then
  54.         Doc.ExportStartFrame = 0
  55.         Doc.ExportStopFrame = NumberOfFrames
  56.         Doc.ExportMeterData meterfile
  57.     end if    
  58.  
  59.     Doc.Selectall False
  60.     Doc.reset
  61.  
  62. End Sub